home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 47.7z
/
BS1 part 47
/
ImageMaster RT v1.50b (1994)(Black Belt Systems)(Disk 6 of 7)[HD].7z
/
ImageMaster RT v1.50b (1994)(Black Belt Systems)(Disk 6 of 7)[HD].adf
/
piarc.lzh.parta
/
Ellipse.rxwp
< prev
next >
Wrap
Text File
|
1994-03-17
|
632b
|
27 lines
/* Ellipse.rxwp - rexx script to fill wipe buffer */
parse arg cframe mframe
options;
address;
if mframe = 0 then do
call open(fhandle,'ram:IM_WIPE.tmp2','write'); /* open the file */
junk = writeln(fhandle, 1);
junk = writeln(fhandle, 1);
junk = writeln(fhandle, 1);
junk = writeln(fhandle, 1);
junk = writeln(fhandle, 1);
junk = writeln(fhandle, 1);
call close(fhandle); /* close the file */
end;
else do
fp = cframe / mframe;
fp = fp * 0.707;
address("IM_WIPER");
'NGON '||fp||','||fp||',48'
'close'
end;
exit 0;